Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=float), | public | :: | age | ||||
real(kind=float), | public | :: | dbh | ||||
real(kind=float), | public | :: | density | ||||
real(kind=float), | public | :: | height | ||||
real(kind=float), | public | :: | intensity | ||||
real(kind=float), | public | :: | lai | ||||
real(kind=float), | public | :: | leaf_biomass | ||||
logical, | public | :: | reforestation | ||||
real(kind=float), | public | :: | root_biomass | ||||
integer(kind=short), | public | :: | species | ||||
real(kind=float), | public | :: | stem_biomass | ||||
type(DateTime), | public | :: | time |
TYPE :: thinning TYPE (DateTime) :: time !when plants are cut REAL (KIND = float) :: intensity !percentage of plants to be cut !used for reforestation LOGICAL :: reforestation !true if reforestation is required INTEGER (KIND = short) :: species !species for reforestation REAL (KIND = float) :: density ! number of plants per hectar REAL (KIND = float) :: age !(years) REAL (KIND = float) :: dbh ! stem diameter at breast height (cm) REAL (KIND = float) :: height !tree height (m) REAL (KIND = float) :: stem_biomass !(t/ha) REAL (KIND = float) :: root_biomass !(t/ha) REAL (KIND = float) :: leaf_biomass !(t/ha) REAL (KIND = float) :: lai ! leaf area index (m2/m2) END TYPE thinning